home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / background_6079.txt < prev    next >
Text File  |  1988-09-19  |  11KB  |  446 lines
  1. -- background: 6079 from stack: in
  2. -- bmap block id: 6606
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on clickField
  8.   if the paramcount<1 then
  9.     put 1 into thingg
  10.   else
  11.     put param(1) into thingg
  12.   end if
  13.   put the rect of field ID thingg into r2
  14.   put item 1 of r2 + 3 into item 1 of pt
  15.   put item 2 of r2 + 3 into item 2 of pt
  16.   click at pt
  17. end clickField
  18.  
  19. on arrowKey var
  20.   if (the ShiftKey is down) or (var is "right") or (var is "left") then
  21.     pass arrowKey
  22.     exit arrowKey
  23.   end if
  24.   if the optionKey is down then
  25.     put the rect of field "thetext" into rr
  26.     put item 4 of rr into skipp
  27.     subtract item 2 of rr from skipp
  28.     subtract 9 from skipp -- keep some overlap
  29.   else
  30.     put 1 into skipp
  31.   end if
  32.   if var is "up" then put 0-skipp into skipp
  33.   put the scroll of field "thetext" into scr
  34.   add skipp to scr
  35.   if scr<0 then put 0 into scr
  36.   set the scroll of field "thetext" to scr
  37. end arrowKey
  38.  
  39.  
  40. -- part 1 (field)
  41. -- low flags: 00
  42. -- high flags: 0007
  43. -- rect: left=1 top=18 right=311 bottom=509
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 3
  48. -- text size: 9
  49. -- style flags: 0
  50. -- line height: 10
  51. -- part name: theText
  52. ----- HyperTalk script -----
  53. on closeField
  54.   send mouseUp to field "stats"
  55. end closeField
  56.  
  57.  
  58. -- part 2 (button)
  59. -- low flags: 00
  60. -- high flags: 8003
  61. -- rect: left=162 top=323 right=342 bottom=210
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: read
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   global IOResult, theText
  73.   put empty into extension
  74.   put 0 into NoErr
  75.   put 1 into fsFromStart
  76.   put 100 into item 1 of wher
  77.   put 100 into item 2 of wher
  78.   put empty into rply
  79.   put TBxFile("SFGetFile",wher,"What file:",0,1,"TEXT",0,0) into rply
  80.   if IOResult <> noErr THEN
  81.     put "IO error on SFGetFile " & IOResult
  82.     exit mouseUp
  83.   end if
  84.   if item 1 of rply is false then exit mouseup
  85.   get item 4 of rply
  86.   put the value of it into theVRefNo
  87.   put item 6 of rply into pfname
  88.   put TBxFile("FSOpen",pfname, theVRefNo, 0) into refNo
  89.   if IOResult <> noErr THEN
  90.     put "IO error on FSOpen " & IOResult
  91.     exit mouseUp
  92.   end if
  93.   put empty into logEOF
  94.   put TBxFile("GetEOF",refNo, 0) into logEOF
  95.   if IOResult <> noErr THEN
  96.     put "IO error on GetEOF " & IOResult
  97.     exit mouseUp
  98.   end if
  99.   put the value of logEOF into Siz
  100.   If Siz>29990 Then
  101.     put Siz & " Characters in the file"
  102.     ask "File too large, start reading from:" with 0
  103.     if it is empty then exit mouseUp
  104.     put the value of it into startPt
  105.     if startPt>Siz then put Siz-29990 into startPt
  106.     put "reading from " & startPt
  107.     put TBxFile("SetFPos",refNo, fsFromStart, startPt) into io
  108.     if IOResult <> noErr THEN
  109.       put "IO error on SetFPos0 " & IOResult
  110.       put TBxFile("FSClose",refNo) into io
  111.       put TBxFile("FlushVol",NIL, theVRefNo) into io
  112.       answer "An IO error has occured."
  113.       exit mouseUp
  114.     end if
  115.     put " (partial)" into extension
  116.     put siz-startPt into siz
  117.     if siz>29990 then put 29990 into siz
  118.     hide the message window
  119.   end if
  120.   put empty into theText
  121.   put TBxFile("FSRead",refNo, siz, 0) into theText
  122.   if IOResult <> noErr then
  123.     put "IO error on Read " & IOResult
  124.     exit mouseUp
  125.   end if
  126.   put pfname & extension into field "file name"
  127.   put TBxFile("FSClose",refNo) into io
  128.   IF IOResult <> noErr THEN
  129.     put "IO error on Close " & IOResult
  130.     exit mouseUp
  131.   end if
  132.   put TBxFile("FlushVol",NIL, theVRefNo) into io
  133.   IF IOResult <> noErr THEN
  134.     put "IO error on Flush " & IOResult
  135.     exit mouseUp
  136.   end if
  137.   put theText into field "theText"
  138.   send mouseUp to field "stats"
  139.   clickField
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 3 (button)
  145. -- low flags: 00
  146. -- high flags: 8003
  147. -- rect: left=210 top=323 right=342 bottom=261
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: write
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   global IOResult, theText
  159.   put field "file name" into pfname
  160.   put 0 into NoErr
  161.   put -43 into fnfErr
  162.   put 1 into fsFromStart
  163.   put 100 into item 1 of wher
  164.   put 100 into item 2 of wher
  165.   put empty into rply
  166.   put TBxFile("SFPutFile",wher,"Save Field as:",pfname,0,0) into rply
  167.   if IOResult <> noErr THEN
  168.     put "IO error on SFPutFile " & IOResult
  169.     exit mouseUp
  170.   end if
  171.   if item 1 of rply is false then exit mouseup
  172.   get item 4 of rply
  173.   put the value of it into theVRefNo
  174.   put item 6 of rply into pfname
  175.   put TBxFile("FSOpen",pfname, theVRefNo, 0) into refNo
  176.   if (IOResult <> noErr) AND (IOResult <> fnfErr) THEN
  177.     put "IO error on FSOpen " & IOResult
  178.     exit mouseUp
  179.   end if
  180.   if IOResult=fnfErr then
  181.     put TBxFile("Create",pfname, theVRefNo, "????","TEXT") into io
  182.     if IOResult <> noErr THEN
  183.       put "IO error on Create " & IOResult
  184.       exit mouseUp
  185.     end if
  186.     put TBxFile("FSOpen",pfname, theVRefNo, 0) into refNo
  187.     if IOResult <> noErr THEN
  188.       put "IO error on FSOpen " & IOResult
  189.       exit mouseUp
  190.     end if
  191.   else
  192.     put TBxFile("GetEOF",refNo, 0) into logEOF
  193.     if IOResult <> noErr THEN
  194.       put "IO error on GetEOF " & IOResult
  195.       exit mouseUp
  196.     end if
  197.     put TBxFile("SetFPos",refNo, fsFromStart, logEOF) into io
  198.     if IOResult <> noErr THEN
  199.       put "IO error on SetFPos " & IOResult
  200.       exit mouseUp
  201.     end if
  202.   end if
  203.   put field "theText" into theText
  204.   put the length of theText into Siz
  205.   put TBxFile("FSWrite",refNo, siz, theText) into io
  206.   if IOResult <> noErr then
  207.     put "IO error on Write " & IOResult
  208.     exit mouseUp
  209.   end if
  210.   put TBxFile("FSClose",refNo) into io
  211.   IF IOResult <> noErr THEN
  212.     put "IO error on Close " & IOResult
  213.     exit mouseUp
  214.   end if
  215.   put TBxFile("FlushVol",NIL, theVRefNo) into io
  216.   IF IOResult <> noErr THEN
  217.     put "IO error on Flush " & IOResult
  218.     exit mouseUp
  219.   end if
  220.   put pfname into field "File Name"
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 4 (button)
  226. -- low flags: 00
  227. -- high flags: 8003
  228. -- rect: left=260 top=323 right=342 bottom=386
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: copy to clipboard
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   send tabKey
  240.   doMenu "Copy Text"
  241.   put "The text has been copied to the clipboard."
  242.   wait 50 ticks
  243.   hide the message window
  244.   clickField
  245. end mouseUp
  246.  
  247.  
  248.  
  249. -- part 5 (button)
  250. -- low flags: 00
  251. -- high flags: 8003
  252. -- rect: left=386 top=323 right=342 bottom=432
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: print
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   printfield "field theText",2
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 6 (button)
  269. -- low flags: 00
  270. -- high flags: 8003
  271. -- rect: left=431 top=323 right=342 bottom=463
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: sort
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   answer "Ascending or Descending?" with "Cancel" OR "Descending" OR "Ascending"
  283.   if it is "Cancel" then exit mouseUp
  284.   put "A" into hang
  285.   if it is "Descending" then put "D" into hang
  286.   put field "theText" into thingg
  287.   put empty into field "theText"
  288.   put sorter(thingg,hang) into field "theText"
  289.   send mouseUp to field "stats"
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part 7 (button)
  295. -- low flags: 00
  296. -- high flags: 0000
  297. -- rect: left=463 top=322 right=342 bottom=479
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 15420 / 15420
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: prev
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   go to prev card of this bkgnd
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 8 (button)
  314. -- low flags: 00
  315. -- high flags: 0000
  316. -- rect: left=479 top=322 right=342 bottom=495
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 16560 / 16560
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: next
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   go to next card of this bkgnd
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 9 (button)
  333. -- low flags: 00
  334. -- high flags: 8003
  335. -- rect: left=89 top=323 right=342 bottom=162
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: new card
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   doMenu "New Card"
  347.   put "untitled" into field "file name"
  348.   send tabKey
  349. end mouseUp
  350.  
  351.  
  352.  
  353. -- part 10 (field)
  354. -- low flags: 01
  355. -- high flags: 0004
  356. -- rect: left=1 top=314 right=340 bottom=90
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 0
  360. -- font id: 3
  361. -- text size: 9
  362. -- style flags: 0
  363. -- line height: 10
  364. -- part name: stats
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   put empty into field "stats"
  368.   put the length of field "theText" && "chars" into line 1 of field "stats"
  369.   put the number of lines of field "theText" && "lines" into line 2 of field "stats"
  370. end mouseUp
  371.  
  372.  
  373. -- part 11 (field)
  374. -- low flags: 01
  375. -- high flags: 0004
  376. -- rect: left=101 top=310 right=325 bottom=454
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 0
  380. -- font id: 3
  381. -- text size: 9
  382. -- style flags: 256
  383. -- line height: 10
  384. -- part name: file name
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   put field "file name" into pfname
  388.   ask "Rename to:" with pfname
  389.   if it is not empty then put it into field "file name"
  390. end mouseUp
  391.  
  392.  
  393. -- part 12 (button)
  394. -- low flags: 00
  395. -- high flags: 8004
  396. -- rect: left=459 top=310 right=324 bottom=501
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 1
  400. -- font id: 0
  401. -- text size: 12
  402. -- style flags: 0
  403. -- line height: 16
  404. -- part name: clear
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.   if the optionKey is down then
  408.     get the short name of this card
  409.     if it is "text edit" then
  410.       answer "You cannot delete the first text edit card"
  411.       exit mouseUp
  412.     end if
  413.     answer "Delete this card?" with "Cancel" or "OK"
  414.     if it is "Cancel" then exit mouseUp
  415.     doMenu "Delete Card"
  416.     go to prev card
  417.   end if
  418.   put empty into field "theText"
  419.   put empty into field "stats"
  420.   put "Untitled" into field "file name"
  421.   doMenu "Compact Stack"
  422.   send mouseUp to field "stats"
  423.   clickField
  424. end mouseUp
  425.  
  426.  
  427.  
  428. -- part 13 (button)
  429. -- low flags: 00
  430. -- high flags: 0000
  431. -- rect: left=496 top=322 right=342 bottom=512
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 6720 / 6720
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: return
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   visual effect iris close
  443.   pop card
  444. end mouseUp
  445.  
  446.